home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / Wheel_45_wm_1perfltg.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  628 b   |  21 lines
  1. on mouseDown
  2.   global glinevar
  3.   if the mouseLine <> -1 then
  4.     set glinevar to the mouseLine
  5.     if the number of chars in line glinevar of field "mainwheel" < 1 then
  6.       hilite char 1 of field "mainwheel"
  7.       put EMPTY into field "tblwheel,W_BEARBORE"
  8.       put EMPTY into field "tblwheel,W_BORE_LB"
  9.       put EMPTY into field "tblwheel,WH_HUB"
  10.       put EMPTY into field "tblwheel,SP_BUSHBOR"
  11.       put EMPTY into field "tblwheel,SP_BUSHLN"
  12.       put EMPTY into field "tblwheel,WT"
  13.       updateStage()
  14.       abort()
  15.     end if
  16.     hilite line glinevar of field "mainwheel"
  17.     updateStage()
  18.     WHEELHAND()
  19.   end if
  20. end
  21.